Haskell function causing stack overflow